Возвращает имя указанного совместно используемого сетевого накопителя.

object.ShareName

Параметры
object объект типа Drive

Замечания
Если элемент object не является сетевым накопителем, свойство ShareName возвращает пустую строку ("").

Пример
Следующий код иллюстрирует использование ShareName свойства:

Sub ShowDriveInfo(drvpath)
    Dim fs, d, s 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    s = "Drive " & d.DriveLetter & ": - " & d.ShareName
    MsgBox s
End Sub